unit MultiDemo_U;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ExtCtrls, ComCtrls, Buttons, Menus, ToolWin,
  Db, ADODB, DBClient, AcroMultiDD, Grids, DBGrids, DBTables,
  AcroMultiDBDD, ActnList, CheckLst, ActnMan, ActnCtrls,
  DBCtrls, AcroMultiReplacer,
  ActnPopup;

type
  TFormStudent = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    Button2: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TreeView1: TTreeView;
    SpeedButton1: TSpeedButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    Edit1: TMenuItem;
    Copy1: TMenuItem;
    Past1: TMenuItem;
    Cust1: TMenuItem;
    CheckBox1: TCheckBox;
    RadioButton1: TRadioButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    RadioGroup1: TRadioGroup;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Button4: TButton;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    ListBox1: TListBox;
    Memo2: TMemo;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    File2: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    aaa1: TMenuItem;
    bbb1: TMenuItem;
    StatusBar1: TStatusBar;
    TabControl1: TTabControl;
    ToolBar3: TToolBar;
    ToolButton5: TToolButton;
    Label2: TLabel;
    CheckListBox1: TCheckListBox;
    HeaderControl1: THeaderControl;
    DBListBox1: TDBListBox;
    DBComboBox1: TDBComboBox;
    DBRadioGroup1: TDBRadioGroup;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    RichEdit1: TRichEdit;
    DBText1: TDBText;
    ListView1: TListView;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormStudent: TFormStudent;

implementation

uses DemoDM_U;

{$R *.DFM}

procedure TFormStudent.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.
